home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 104 / 104.d81 / tax boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  59 lines
  1. 6 dv=peek(186):ifdv<8thendv=8
  2. 10 dimf$(8):fori=1to8:readf$(i):next
  3. 20 data 1040,1040a,1040ez,scha,schc,schse,reader c800,hello connect
  4. 30 dimm$(8):fori=1to8:readm$(i):next
  5. 35 data " 1040                         "
  6. 36 data " 1040[193]                        "
  7. 37 data " 1040[197][218]                       "
  8. 38 data " [211]chedule [193] ([196]eductions)      "
  9. 39 data " [211]chedule [195] ([194]usiness)        "
  10. 40 data " [211]chedule [211][197] ([211]hort [198]orm)     "
  11. 42 data " [201]nstructions                 "
  12. 43 data " [204]oadstar                     "
  13. 100 poke53281,0:poke53280,0:poke53272,23:print"[147][153]";
  14. 190 printtab(5)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  15. 191 printtab(5)"[221][155]                              [153][146][221]"
  16. 192 printtab(5)"[221][155]       [212]ax [193]ccountant         [153][146][221]"
  17. 194 printtab(5)"[221][155]    by [194]arbara [200]. [211]chulak     [153][146][221]"
  18. 196 printtab(5)"[221][155]  [208]ublished on [204]oadstar #104  [153][146][221]"
  19. 198 printtab(5)"[221][155]      (c) 1993 [211]oftdisk       [153][146][221]"
  20. 200 printtab(5)"[221][155] [211]ubscriptions 1-800-831-2694 [153][146][221]"
  21. 202 printtab(5)"[221][155]                              [153][146][221]"
  22. 220 printtab(5)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  23. 290 :
  24. 300 sys57812"tool box c000",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  25. 301 sys57812"notepad c900",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  26. 302 sys49152+18,5,13,30,8,1,0
  27. 304 poke214,13:print:for i=1to8:printtab(6)"[154]"m$(i):next:poke198,0
  28. 306 sys49152+12,6,14,35,8,14,1
  29. 308 k=peek(828)
  30. 325 f$=f$(k)
  31. 330 onkgoto60000,60000,60000,60000,60000,60000,1000,40000
  32. 340 goto306
  33. 350 :
  34. 1000 sys49152+3,1:print"[147]"tab(14)"[150]*** [200][197][204][208] ***"
  35. 1005 sys49152+18,0,1,38,21,1,0
  36. 1010 h$="t.instr"
  37. 1014 sys49152+33
  38. 1015 sys49152+21,"[208]ress [210][197][212][213][210][206]     _ to [197]xit",24,13,0
  39. 1020 open2,dv,2,h$+",p,r":sys49152+30,14
  40. 1025 poke198,0
  41. 1026 sys49152+21,"       [208]ress [210][197][212][213][210][206]       ",24,10,0
  42. 1030 getk$:ifk$<>chr$(13)then1030
  43. 1031 poke 198,0
  44. 1035 close2:sys49152+6,1:goto304
  45. 1040 :
  46. 10000 open15,8,15,"s0:tax boot":close15:save"0:tax boot",8:end
  47. 10100 :
  48. 40000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen40030
  49. 40010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40030
  50. 40020 next:print"[147]":poke2048,0:poke44,8:poke53272,23:poke186,8:end
  51. 40030 poke646,peek(53281):print"[147]load"chr$(34)a$chr$(34)","i
  52. 40040 print"run":poke44,8:poke2048,0:poke631,13:poke632,13:poke198,2:end
  53. 60000 fori=0to8:poke781,i:sys59903:next:print
  54. 60006 a$=f$:open15,dv,15,"r0:"+a$+"="+a$:input#15,er:close15
  55. 60010 if er<>63 thenprint"[147]":end
  56. 60011 q$=chr$(34):poke646,peek(53281)
  57. 60020 print"load"q$a$q$","dv
  58. 60030 print"run":poke631,13:poke632,13:poke633,13:poke198,3:end
  59.